﻿' ----------------------------------------------------------------------------------
' Microsoft Developer & Platform Evangelism
' 
' Copyright (c) Microsoft Corporation. All rights reserved.
' 
' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, 
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES 
' OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' ----------------------------------------------------------------------------------
' The example companies, organizations, products, domain names,
' e-mail addresses, logos, people, places, and events depicted
' herein are fictitious.  No association with any real company,
' organization, product, domain name, email address, logo, person,
' places, or events is intended or should be inferred.
' ----------------------------------------------------------------------------------

Namespace Credentials
    Friend Module WebHeaderCollectionExtensions
        <System.Runtime.CompilerServices.Extension()> _
        Public Sub Add(ByVal col As WebHeaderCollection, ByVal key As String, ByVal value As String)
            col(key) = value
        End Sub

        <System.Runtime.CompilerServices.Extension()> _
        Public Sub Add(ByVal col As WebHeaderCollection, ByVal key As HttpRequestHeader, ByVal value As String)
            col(key) = value
        End Sub

        <System.Runtime.CompilerServices.Extension()> _
        Public Function GetValues(ByVal col As WebHeaderCollection, ByVal key As String) As List(Of String)
            Dim list As New List(Of String)()
            For Each k In col.AllKeys
                If k.Equals(key, StringComparison.OrdinalIgnoreCase) Then
                    list.Add(col(k))
                End If
            Next k

            Return list
        End Function
    End Module
End Namespace